home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Toolbox / Visual Basic Toolbox (P.I.E.)(1996).ISO / internet / source / userexit.rpg < prev   
Encoding:
Text File  |  1995-05-24  |  5.3 KB  |  122 lines
  1.      E* ---------------------------------------------------------------
  2.      E* Arrays To Hold File Transfer and SQL Information
  3.      E*
  4.      E                    TFREQ    4096  1
  5.      E                    RSREQ    4107  1
  6.      I* ---------------------------------------------------------------
  7.      I* User Exit Parameter Data
  8.      I*
  9.      IEXTDTA      DS                           4171
  10.      I* ---------------------------------------------------------------
  11.      I* Common Header Information
  12.      I*
  13.      I                                        1  10 USERID
  14.      I                                       11  20 APPLID
  15.      I                                       21  30 FUNCID
  16.      I* ---------------------------------------------------------------
  17.      I* Virtual Printer Parameters
  18.      I*
  19.      I                                       31  40 VPOBJ
  20.      I                                       41  50 VPLIB
  21.      I                                       71  750VPLEN
  22.      I                                       76  85 VPOUTQ
  23.      I                                       86  95 VPQLIB
  24.      I* ---------------------------------------------------------------
  25.      I* File Transfer Parameters
  26.      I*
  27.      I                                       31  40 TFOBJ
  28.      I                                       41  50 TFLIB
  29.      I                                       51  60 TFMBR
  30.      I                                       61  70 TFFMT
  31.      I                                       71  750TFLEN
  32.      I                                       764171 TFREQ
  33.      I* ---------------------------------------------------------------
  34.      I* Shared Folders Parameters
  35.      I*
  36.      I                                       96  96 SFREAD
  37.      I                                       97  97 SFWRIT
  38.      I                                       98  98 SFRW
  39.      I                                       99  99 SFDLT
  40.      I                                      100 111 SFDOC
  41.      I                                      112 174 SFFLR
  42.      I* ---------------------------------------------------------------
  43.      I* Data Queue Parameters
  44.      I*
  45.      I                                       31  40 DQQ
  46.      I                                       41  50 DQLIB
  47.      I                                       70  75 DQLEN
  48.      I                                       76  77 DQROP
  49.      I                                       78  82 DQKLEN
  50.      I                                       83 338 DQKEY
  51.      I* ---------------------------------------------------------------
  52.      I* Remote SQL Parameters
  53.      I*
  54.      I                                       31  40 RSOBJ
  55.      I                                       41  50 RSLIB
  56.      I                                       51  51 RSCMT
  57.      I                                       52  52 RSMODE
  58.      I                                       53  53 RSCID
  59.      I                                       54  71 RSSTN
  60.      I                                       72  75 RSRSV
  61.      I                                       764172 RSREQ
  62.      C* ---------------------------------------------------------------
  63.      C* User Exit Program Parameters 
  64.      C*
  65.      C           *ENTRY    PLIST
  66.      C                     PARM           RTNCOD   1
  67.      C                     PARM           EXTDTA
  68.      C* ---------------------------------------------------------------
  69.      C* Assume Everything Accepted
  70.      C*
  71.      C                     MOVE '1'       RTNCOD
  72.      C* ---------------------------------------------------------------
  73.      C* Which Application Making The Call
  74.      C*
  75.      C           APPLID    CASEQ'*VPRT'   VPSUB
  76.      C           APPLID    CASEQ'*TFRFCL' TFSUB
  77.      C           APPLID    CASEQ'*FLRSRV' FLSUB
  78.      C           APPLID    CASEQ'*MSGFCL' MSSUB
  79.      C           APPLID    CASEQ'*DQSRV'  DQSUB
  80.      C           APPLID    CASEQ'*RQSRV'  RQSUB
  81.      C                     ENDCS
  82.      C* ---------------------------------------------------------------
  83.      C* SUBROUTINES
  84.      C* ---------------------------------------------------------------
  85.      C* Virtual Print
  86.      C*
  87.      C           VPSUB     BEGSR
  88.      C                     ENDSR
  89.      C* ---------------------------------------------------------------
  90.      C* File Transfer
  91.      C*
  92.      C           TFSUB     BEGSR
  93.      C* ---------------------------------------------------------------
  94.      C*   The following is a sample of not allowing a SELECT
  95.      C*   statement on any table in QSYS.
  96.      C*
  97.      C           FUNCID    IFEQ 'SELECT'
  98.      C           TFLIB     ANDEQ'QSYS'
  99.      C                     MOVE '0'       RTNCOD
  100.      C                     END
  101.      C                     ENDSR
  102.      C* ---------------------------------------------------------------
  103.      C* Shared Folders
  104.      C*
  105.      C           FLSUB     BEGSR
  106.      C                     ENDSR
  107.      C* ---------------------------------------------------------------
  108.      C* Messaging
  109.      C*
  110.      C           MSSUB     BEGSR
  111.      C                     ENDSR
  112.      C* ---------------------------------------------------------------
  113.      C* Data Queues
  114.      C*
  115.      C           DQSUB     BEGSR
  116.      C                     ENDSR
  117.      C* ---------------------------------------------------------------
  118.      C* Remote SQL
  119.      C*
  120.      C           RQSUB     BEGSR
  121.      C                     ENDSR
  122.